CD Fun House 1/CD Fun House (Wayzata Technology).iso/•The School House•/Concentration 1.1 •••/Concentration 1.1 еее/card_3032.txt

Text File | 1990-10-07 | 8KB | 290 lines

-- card: 3032 from stack: in.1 –µ–µ–µ
-- bmap block id: 0
-- flags: 4000
-- background id: 2657
-- name:
----- HyperTalk script -----
on shufflebuttons
  repeat with x = 1 to 60
    put the loc of bkgnd button x into xloc
    put the random of 60 into y
    put the loc of background button y into yloc
    set the loc of bkgnd button x to yloc
    set the loc of bkgnd button y to xloc
  end repeat
end shufflebuttons

on hidethem
  set lockscreen to true
  repeat with buttonid = 1 to 60
    set icon of background button buttonid to 0
  end repeat
  wait 15
  set lockscreen to false
end hidethem

on showthem
  set lockscreen to true
  set icon of bkgnd button id 17 to 131
  set icon of bkgnd button id 18 to 143
  set icon of bkgnd button id 19 to 504
  set icon of bkgnd button id 20 to 32383
  set icon of bkgnd button id 21 to 31590
  set icon of bkgnd button id 22 to 167
  set icon of bkgnd button id 23 to 25929
  set icon of bkgnd button id 24 to -30295
  set icon of bkgnd button id 25 to 145
  set icon of bkgnd button id 26 to 152
  set icon of bkgnd button id 27 to 23078
  set icon of bkgnd button id 28 to 24696
  set icon of bkgnd button id 29 to 7012
  set icon of bkgnd button id 30 to 177
  set icon of bkgnd button id 31 to 2002
  set icon of bkgnd button id 32 to 1017
  set icon of bkgnd button id 33 to 263
  set icon of bkgnd button id 34 to 504
  set icon of bkgnd button id 35 to 167
  set icon of bkgnd button id 36 to 1
  set icon of bkgnd button id 37 to 24696
  set icon of bkgnd button id 38 to -30295
  set icon of bkgnd button id 39 to 25929
  set icon of bkgnd button id 40 to 1019
  set icon of bkgnd button id 41 to 13433
  set icon of bkgnd button id 42 to 157
  set icon of bkgnd button id 43 to 20098
  set icon of bkgnd button id 44 to 7012
  set icon of bkgnd button id 45 to 177
  set icon of bkgnd button id 46 to 132
  set icon of bkgnd button id 47 to 152
  set icon of bkgnd button id 48 to 145
  set icon of bkgnd button id 49 to 1595
  set icon of bkgnd button id 50 to 146
  set icon of bkgnd button id 51 to 32383
  set icon of bkgnd button id 52 to 31977
  set icon of bkgnd button id 53 to 263
  set icon of bkgnd button id 54 to 162
  set icon of bkgnd button id 55 to 3403
  set icon of bkgnd button id 56 to 161
  set icon of bkgnd button id 57 to 31590
  set icon of bkgnd button id 58 to 164
  set icon of bkgnd button id 59 to 1017
  set icon of bkgnd button id 60 to 13433
  set icon of bkgnd button id 61 to 1019
  set icon of bkgnd button id 62 to 131
  set icon of bkgnd button id 63 to 1595
  set icon of bkgnd button id 64 to 23078
  set icon of bkgnd button id 65 to 132
  set icon of bkgnd button id 66 to 143
  set icon of bkgnd button id 67 to 1
  set icon of bkgnd button id 68 to 162
  set icon of bkgnd button id 69 to 2002
  set icon of bkgnd button id 70 to 146
  set icon of bkgnd button id 71 to 3403
  set icon of bkgnd button id 73 to 164
  set icon of bkgnd button id 74 to 31977
  set icon of bkgnd button id 75 to 157
  set icon of bkgnd button id 77 to 20098
  set icon of bkgnd button id 78 to 161
  set lockscreen to false
end showthem

on testit
  global entrynumber, myicon, theicon, otherbutton, score, matches
  global mydate, mytime, myname
  if entrynumber = 0 then
    put 1 into entrynumber
    put myicon into theicon
    put 0 into myicon
    put the target into otherbutton
  else
    if theicon = myicon then
      put the target into temp
      if otherbutton = temp then
      else
        put matches + 1 into matches
        put score + 5 into score
        if matches >= 30 then
          play "harpsichord" tempo 300 "c5q g5q e5q e5q c5h b3h b3h b3h c5q g5q e5q e5q c5w"
          ask "Please enter your name:"
          put it into myname
          put the date into mydate
          put the time into mytime
          set lockscreen to true
          set visible of card button "Shuffle" to true
          set visible of card button "High Scores" to true
          InsertScore
          set lockscreen to false
          put 0 into matches
        end if
        put 0 into entrynumber
        put 0 into myicon
        put 0 into theicon
        put 0 into otherbutton
      end if
    else
      set icon of the target to 0
      set icon of otherbutton to 0
      put score - 1 into score
      put 0 into entrynumber
      put 0 into myicon
      put 0 into theicon
      put 0 into otherbutton
    end if
  end if
end testit

on InsertScore
  global score, myname, mydate, mytime
  go previous
  ShowScore
  put the number of lines of card field "score 1" into counter
  if counter = 0 then
    put score & return after card field "Score 1"
    put mydate & space & mytime & return after card field "Score 2"
    put myname & return after card field "Score 3"
  else
    repeat with x = 1 to counter
      put line x of card field "score 1" into theline
      if score > theline then
        put score & return before line x of card field "Score 1"
        put mydate & space & mytime & return before line x of card field "Score 2"
        put myname & return before line x of card field "Score 3"
        exit repeat
      else if x = counter then
        put score & return after card field "Score 1"
        put mydate & space & mytime & return after card field "Score 2"
        put myname & return after card field "Score 3"
        exit repeat
      end if
    end repeat
  end if
end InsertScore




-- part 65 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=408 top=314 right=336 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Give Up
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  set visible of card button "Shuffle" to true
  set visible of card button "High Scores" to true
  set lockscreen to false
  showthem
end mouseup




-- part 68 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=307 top=314 right=336 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: High Scores
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  go previous
  ShowScore
  set lockscreen to false
  wait 300
  set lockscreen to true
  HideScore
  go next
  set lockscreen to false
end mouseUp



-- part 71 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=105 top=314 right=336 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Shuffle
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  shufflebuttons
  set lockscreen to false
end mouseUp



-- part 72 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=4 top=313 right=335 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Home
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  set visible of card button "Shuffle" to true
  set visible of card button "High Scores" to true
  set lockscreen to false
  go home
end mouseUp



-- part 76 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=206 top=314 right=336 bottom=306
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Game
----- HyperTalk script -----
on mouseUp
  global matches, entrynumber, score, myicon, theicon, otherbutton
  set lockscreen to true
  set the visible of card button "High Scores" to false
  set the visible of card button "Shuffle" to false
  set lockscreen to false
  put 0 into entrynumber
  put 0 into matches
  put 0 into score
  put 0 into myicon
  put 0 into theicon
  put 0 into otherbutton
  hidethem
end mouseup